home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 May / 1984-05.d64 / vic print sound (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  992b  |  25 lines
  1. 10 printchr$(147)"vic print-sound"
  2. 20 gosub500
  3. 30 print"sound is now device 2"
  4. 40 close1:open1,2:print#1,"aehmzlmzzzzzz"
  5. 50 ifpeek(983)>0then50
  6. 60 print"a tune by j.s. bach"
  7. 70 print#1,"fhjmkkommrqrmjfhjkmomkjhjfefh"
  8. 80 print#1,"aehkjhjfhjmkkommrqrmjfhjcmkjhfafef"
  9. 90 end
  10. 500 data76,194,3,76,132,3,141,219,3,152,72,165,154,201,2
  11. 510 data208,47,173,219,3,201,65,48,33,201,91,16,29,56,233
  12. 520 data65,168,185,220,3,172,215,3,192,255,240,249,172,217,3
  13. 530 data145,249,200,152,41,255,141,217,3,238,215,3,104,168,173
  14. 540 data219,3,24,96,104,168,173,219,3,76,122,242,72,152,72
  15. 550 data173,218,3,240,15,206,218,3,240,6,104,168,104,76,191
  16. 560 data234,169,0,240,27,173,215,3,240,241,172,216,3,177,249
  17. 570 data72,200,152,41,255,141,216,3,206,215,3,169,10,141,218
  18. 580 data3,104,141,10,144,141,11,144,141,12,144,24,144,207,120
  19. 590 data169,3,141,21,3,141,39,3,169,63,141,20,3,169,66
  20. 600 data141,38,3,88,96,0,0,0,0,0,183,187,191,195,199
  21. 610 data201,203,207,209,212,215,217,219,221,223,225,227,228,229
  22. 620 data231,232,233,235,236,237,0
  23. 630 fori=828to1013:readj:pokei,j:nexti
  24. 640 poke36878,15:sys828:return
  25.